﻿Imports DTO
Imports BLL

Public Class MCadProdutos
    Inherits System.Web.UI.Page
    Sub Limpar()
        txtDescricao.Text = ""
        txtFornecedor.Text = ""
        txtNome.Text = ""
        txtPorcentagem.Text = ""
        txtPrecoCusto.Text = ""
        txtPrecoVenda.Text = ""
        txtQtd.Text = ""
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            CarregarCategoria()
        End If
    End Sub
    Sub CarregarCategoria()
        Dim dtoCategoria As New TipoProdutoDTO
        Dim bllCategoria As New TipoProdutoBLL
        Dim novoItem As New ListItem
        Try
            'Essas propriedades podem ser setadas via programação
            'como o exemplo abaixo ou através de configuração na
            'propriedade do objeto.
            ddlCategoria.DataTextField = "pNome"
            ddlCategoria.DataValueField = "pCodigo"

            'Carregar o DropDownList com os grupos
            ddlCategoria.DataSource = bllCategoria.Listar
            ddlCategoria.DataBind()

            'Cria um novo item
            novoItem.Text = "Selecione"
            novoItem.Value = 0

            'Joga o novo item no grupo
            ddlCategoria.Items.Insert(0, novoItem)
            ddlCategoria.SelectedValue = 0
        Catch ex As Exception
            'lblAviso.Text = "Erro ao carregar grupos - " & ex.Message
        Finally
            dtoCategoria = Nothing
        End Try
    End Sub

    Protected Sub btnSalvar_Click(sender As Object, e As EventArgs) Handles btnSalvar.Click
        txtPorcentagem.Text = (((txtPrecoVenda.Text / txtPrecoCusto.Text) - 1) * 100)

        Dim objProduto As New ProdutoDTO
        Dim bllProduto As New ProdutoBLL

        Try
            objProduto.pFornecedor = txtFornecedor.Text
            objProduto.pNome = txtNome.Text
            objProduto.pQuantidade = txtQtd.Text
            objProduto.pTipo = ddlCategoria.SelectedItem.Text
            objProduto.pValorCusto = txtPrecoCusto.Text
            objProduto.pValorVenda = txtPrecoVenda.Text
            objProduto.pDescricao = txtDescricao.Text

            bllProduto.Incluir(objProduto)
        Catch ex As Exception
            Throw ex
        End Try

        Limpar()
        lblConfirmacao.Text = "Cadastro Realizado com Sucesso!"
    End Sub

End Class